﻿Imports System.ComponentModel

<Serializable()> _
Public Class ShowPictureResultProperties
    Implements IresultProperties
    Implements INotifyPropertyChanged

#Region "InotifyProperty"
    Private Sub NotifyPropertyChanged(ByVal info As String)
        RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(info))
    End Sub
    Public Event PropertyChanged(ByVal sender As Object, ByVal e As System.ComponentModel.PropertyChangedEventArgs) Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
#End Region

#Region "Members"
    Private m_Picture As MediaFile
    Private m_duration As Integer
    Private m_IsFlickering As Boolean
    Private m_location As EventRectangle
    Private m_IsMoviePaused As Boolean
    Private m_numOfFrames As Integer = 1
#End Region

#Region "Properties"

    Public Property NumOfFrames() As Integer
        Get
            Return m_numOfFrames
        End Get
        Set (ByVal value As Integer)
            m_numOfFrames = value
        End Set
    End Property

    Public Property Picture() As MediaFile
        Get
            Return m_Picture
        End Get
        Set(ByVal value As MediaFile)
            m_Picture = value
        End Set
    End Property

    Public Property Duration() As Integer
        Get
            Return m_duration
        End Get
        Set(ByVal value As Integer)
            m_duration = value
        End Set
    End Property

    Public Property IsFlickering() As Boolean
        Get
            Return m_IsFlickering
        End Get
        Set(ByVal value As Boolean)
            m_IsFlickering = value
        End Set
    End Property

    Public Property Location() As EventRectangle
        Get
            Return m_location
        End Get
        Set(ByVal value As EventRectangle)
            m_location = value
        End Set
    End Property

    Public Property IsMoviePaused() As Boolean
        Get
            Return m_IsMoviePaused
        End Get
        Set(ByVal value As Boolean)
            m_IsMoviePaused = value
        End Set
    End Property

#End Region

End Class
